100 REM *******************************
110 REM *                             *
120 REM * AK-SOFT PROUDLY PRESENTS :  *
130 REM *                             *
140 REM * >HELP-MAKER ZU KARTEIVERW.< *
150 REM *                             *
160 REM *       PROGRAMMED WITH       *
170 REM *                             *
180 REM *         T W M  V1.0         *
190 REM *                             *
200 REM *    BY A.KNUEPFER            *
210 REM *       AUF DEM KNUELL 18     *
220 REM *       2056 GLINDE           *
230 REM *       TEL. 040/710 80 06    *
240 REM *                             *
250 REM *******************************
260 :
296 :
297 REM -------------------------------
298 REM  INITIALISIERUNG
299 :
300 IF PEEK(32168)<>162 OR PEEK(38168)<>150 THEN LOAD"TWM V1.0",8,1
310 SYS 32168
320 :
330 POKE53280,0 :POKE53281,0
395 :
396 :
397 REM ===============================
398 REM  BEARBEITUNGSSCHLEIFE
399 :
400 (null) 1,"DIES PROGRAMM ERSTELLT DIE HELP-WINDOWS"
402 (null) 3,"FUER DAS HAUPTPROGRAMM"
404 (null) 5,"'KARTEIVERW. TWM'."
406 (null) 8,10,"ALLES KLAR (J/N) ? ",,"JN",1,JN$ :IF JN$<>"J" THEN STOP
410 READ D1$:IF D1$="" THEN PRINT"[147]FERTIG !" :END
415 READ D0$,D2$
420 READ Z1,S1,Z2,S2,TYP,BSC,H$
430 READ CO,EO,D3
440 (null)1,Z1,S1,Z2,S2,TYP,BSC,H$ :(null)1,CO,EO,D3 :(null)1
450 :
460 READ Z :IF Z<0 THEN 500
470 READ S,T$
480 IF S>127 THEN (null) Z,T$ :GOTO 460
490 (null) Z,S,T$; :GOTO 460
495 :
500 (null) "@:"+D1$,D0$,D2$
510 (null) :(null)1
520 GOTO 410
989 :
990 :
991 REM ===============================
992 REM  DATEN : NAME, VORHER, NACHHER
993 REM          Z1/S1, Z2/S2, TYP, BSC
994 REM          HEADER-TEXT
995 REM          FARBE, EOR, 3D-FARBE
996 :
997 REM ----- HELP-WINDOW BEI
998 REM        WINPUT-EINGABEN
999 :
1000 DATA "HELP WINPUT",,
1010 DATA 10,0,24,39,1,0,"[197]INGABE",8,128,
1020 DATA 1,1,"[155] [195][210][211][210] [204][197][198][212], [210][201][199][200][212], [213][208], [196][207][215][206] [129] [194]EWEGEN"
1030 DATA 3,1,"[155] [201][206][211][212], [196][197][204] [129] : [197]INFUEGEN, [204]OESCHEN
1040 [131] 5,1,"LIST LEFT$(null)(null)VAL FOR      : ATNNFANG DES ASCELDES"
1050 [131] 7,1,"LIST LEN(null)(null) FOR       : LEFT$(null)(null)VAL UND ASCELD LOESCHEN"
1060 [131] 9,1,"LIST (null)VAL(null)(null)(null)(null) FOR    : VALINGABE BEENDEN"
1070 [131] -1
1996 :
1997 [143] ----- HELP-WINDOW BEI
1998 [143]        BOXMENU-AUSWAHL
1999 :
2000 [131] "HELP BOXMENU",,
2010 [131] 5,4,19,36,1,0,"PEEKOXMENUE - ATNUSWAHL",8,128,
2020 [131] 1,1,"PEEKEWEGEN (null)IE DEN (null)FEIL MITTELS"
2030 [131] 3,1,"LIST LEN(null)(null)(null) (null)VALASC(null), (null)RIGHT$CHR$LEFT$(null), (null)(null), STR$(null)(null)(null) FOR"
2040 [131] 5,1,"ZU DER GEWUENSCHTEN ASCUNKTION"
2050 [131] 7,1,"UND BETAETIGEN (null)IE DANNLIST"
2060 [131] 9,128," (null)VAL(null)(null)(null)(null) FOR."
2070 [131] -1
2996 :
2997 [143] ----- HELP-WINDOW ZUM
2998 [143]        HAUPT-BOXMENU
2999 :
3000 [131] "HELP HAUPTMENU",,"HELP BOXMENU"
3010 [131] 5,2,17,36,1,0,"LEFT$AUPTMENUE",8,128,
3020 [131] 1,1,"LIST VAL(null)STR$VAL FOR (null)ERLASSEN DES (null)ROGRAMMS"
3030 [131] 3,1,"LIST (null)(null)ATNSTR$ FOR (null)ADEN EINER NEUEN (null)ARTEI"
3040 [131] 5,1,"LIST VALSTR$RIGHT$(null) FOR PEEKEARBEITEN DER (null)ARTEI"
3050 [131] 7,1,"LIST (null)ATN(null)VAL FOR ATNBSPEICHERN DER (null)ARTEI"
3060 [131] -1
3996 :
3997 [143] ----- HELP-WINDOW ZUM
3998 [143]        EDIT-BOXMENU
3999 :
4000 [131] "HELP EDITMENU",,"HELP BOXMENU"
4010 [131] 4,0,21,39,1,0,"VALSTR$RIGHT$(null)-(null)ENUE",8,128,
4020 [131] 1,1,"LIST _ FOR (null)ERLASSEN DER VALSTR$RIGHT$(null)-(null)OUTINE"
4030 [131] 3,1,"LIST ATNVAL(null)STR$VAL(null)(null) FOR ATNENDERN EINES STR$ATENSATZES"
4040 [131] 5,1,"LIST (null)(null)VAL(null)LENLEFT$ FOR (null)OESCHEN EINES STR$ATENSATZES"
4050 [131] 7,1,"LIST << FOR LIST < FOR PEEKLAETTERN NACH VORNE"
4060 [131] 8,1,"LIST >> FOR LIST > FOR PEEKLAETTERN NACH HINTEN"
4070 [131] 10,1,"LIST ATN(null)ASC(null)VALCHR$ FOR ATNNFUEGEN EINES STR$ATENSATZES"
4080 [131] 12,1,"LIST (null)(null)(null)(null) FOR (null)ARTEI ALPHABETISCH SORIEREN"
4090 [131] -1
4995 :
4996 [143] ----- HELP-WINDOW ZUR
4997 [143]        DEFINITION DER MASKE
4998 :
4999 [143] ----- SEITE 1
5000 [131] "HELP MASKDEF 1",,"HELP MASKDEF 2"
5010 [131] 6,1,24,38,1,0,"STR$EFINITION DER VALRIGHT$(null)CHR$ATNPEEKVAL(null)ATN(null)(null)VAL 1",8,128,
5020 [131] 1,1,"LIST (null)EGEN (null)IE EINE VALINGABEMASKE AN ! FOR"
5030 [131] 3,1,"VALINE SOLCHE (null)ASKE BESTEHT AUS"
5040 [131] 5,1,"VALINGABEFELDERN UND AUS (null)EXTEN,"
5050 [131] 7,1,"DIE DIE ASCUNKTION DER VALINGABEFELDER"
5060 [131] 9,1,"ANGEBEN."
5070 [131] 11,1,"PEEKSP.                              FOR"
5080 [131] 12,6," CONT (null)AME  LISTTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO FOR"
5090 [131] 13,6,"                             FOR"
5100 [131] -1
5198 :
5199 [143] ----- SEITE 2
5200 [131] "HELP MASKDEF 2","HELP MASKDEF 1","HELP MASKDEF 3"
5210 [131] 4,1,24,38,1,0,"STR$EFINITION DER VALRIGHT$(null)CHR$ATNPEEKVAL(null)ATN(null)(null)VAL 2",8,128,
5220 [131] 1,1,"(null)UM VALRSTELLEN DER (null)ASKE STEHEN"
5230 [131] 3,1,"RIGHT$HNEN ALLE (null)ASTEN ZUR (null)ERFUEGUNG."
5240 [131] 5,1,"VALIN VALINGABEFELD KENNZEICHNEN (null)IE"
5250 [131] 7,1,"DURCH EINEN (null)TRICH AUS"
5260 [131] 9,1,"LIST LEN(null)(null)(null)(null)STR$(null)(null)VAL-'@' = 'TO' -(null)EICHEN FOR."
5270 [131] 11,1,"VALIN ZUSAETZLICHES PEEKENUTZEN VON"
5280 [131] 13,1,"VERSCHIEDENEN ASCARBEN ZUR LEFT$ERVOR-"
5290 [131] 15,1,"HEBUNG IST EMPFEHLENSWERT."
5300 [131] -1
5398 :
5399 [143] ----- SEITE 3
5400 [131] "HELP MASKDEF 3","HELP MASKDEF 2",
5410 [131] 10,1,24,38,1,0,"STR$EFINITION DER VALRIGHT$(null)CHR$ATNPEEKVAL(null)ATN(null)(null)VAL 3",8,128,
5420 [131] 1,1,"(null)IE BEENDEN DIE STR$EFINITION MIT"
5430 [131] 3,1,"DER (null)ASTE LIST F3 FOR."
5440 [131] 5,1,"STR$AS (null)YSTEM SPEICHERT DIE ERSTELLTE"
5450 [131] 7,1,"(null)ASKE AB, DAS ASCORMAT DER (null)ARTEI"
5460 [131] 9,1,"IST DAMIT ENDGUELTIG FESTGELEGT."
5470 [131] -1
5996 :
5997 [143] ----- HELP-WINDOW ZUR
5998 [143]        KARTEINAMEN-MENUAUSWAHL
5999 :
6000 [131] "HELP MENU",,
6010 [131] 10,0,24,39,1,0,"(null)ARTEINAMEN - ATNUSWAHL",8,128,
6020 [131] 1,1,"LIST LEN(null)(null), LENSTR$(null)(null)(null) FOR PEEKEWEGEN DES ATNUSWAHL-"
6030 [131] 2,14,"BALKENS NACH OBEN"
6040 [131] 3,14,"UND UNTEN"
6050 [131] 5,1,"LIST LEFT$(null)(null)VAL FOR       CHR$ANZ NACH OBEN"
6060 [131] 7,1,"LIST LEN(null)(null) FOR        ATNN DEN ATNNFANG DER (null)ISTE"
6070 [131] 9,1,"LIST (null)VAL(null)(null)(null)(null) FOR     ATNUSWAHL BEENDEN"
6080 [131] -1
6996 :
6997 [143] ----- HELP-WINDOW ZUR
6998 [143]        KARTEIKARTEN-EINGABE
6999 :
7000 [131] "HELP MEDIT",,"HELP WINPUT"
7010 [131] 4,2,24,37,1,0,"(null)ARTEIKARTEN - VALINGABE",8,128,
7020 [131] 1,1,"ASCUER DIE VALINGABE EINES EINZELNEN"
7030 [131] 3,1,"ASCELDES SIEHE (null)EITE 2."
7040 [131] 5,1,"(null)IT LIST (null)VAL(null)(null)(null)(null) FOR GELANGEN (null)IE ZUM"
7050 [131] 7,1,"FOLGENDEN VALINGABEFELD,"
7060 [131] 9,1,"MIT LIST F3 FOR ZUM VORHERIGEN."
7070 [131] 11,1,"PEEKEIM LETZEN VALINGABEFELD BEWIRKT"
7080 [131] 13,1,"LIST (null)VAL(null)(null)(null)(null) FOR EIN PEEKEENDEN DER"
7090 [131] 15,1,"(null)ARTEIKARTENEINGABE."
7100 [131] -1
7996 :
7997 [143] ----- HELP-WINDOW ZUR
7998 [143]
7999 :
8000 [131] ""